home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 7 / Commodore_Disc_07_19xx_-_de.d64 / caverns part iii (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  93 lines
  1. 5 rem basic loader caverns sprites
  2. 6 :
  3. 20 data0,124,0,0,146,0,0,238,0,0,238,0,0,56,0,0,0,0,0,56,0,0,16,0,3,147,128,4
  4. 30 data0,64,4,214,64,5,17,64,4,214,64,5,17,64,0,214,0,9,17,32,8,214,32,8,0,32
  5. 40 data8,124,32,0,130,0,8,130,32,0,8,126,32,8,130,32,0,130,0,0,130,0,0,130,0,0
  6. 50 data130,0,0,0,0,0,130,0,0,130,0,0,130,0,0,130,0,0,130,0,0,130,0,0,0,0,1,131
  7. 60 data0,3,1,128,6,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,28,0,0,62,0,0,127,0
  8. 70 data0,255,128,3,255,224,1,0,64,1,99,64,0,182,128,0,128,128,0,193,128,1,93,64
  9. 80 data2,34,32,4,54,16,9,28,136,16,8,132,33,0,66,82,0,67,90,0,45,79,224,113,64
  10. 90 data96,65,66,64,224,97,32,160,34,33,160,98,33,48,162,33,31,34,65,46,97,49,46
  11. 100 data70,60,238,220,38,198,178,35,134,226,34,32,66,32,66,4,36,0,36,36,66,36,40
  12. 110 data1,20,40,129,24,16,129,8,8,128,136,17,0,136,17,63,132,15,192,120,66,0,129
  13. 120 data0,0,129,0,0,255,0,32,90,4,48,102,12,24,126,24,12,36,48,6,24,96,3,255,192
  14. 130 data1,255,128,0,255,0,0,126,0,0,126,0,0,126,0,0,126,0,0,102,0,0,102,0,0,102
  15. 140 data0,0,102,0,0,102,0,0,231,0,0,0,60,0,0,126,0,7,90,224,15,126,240,31,165,248
  16. 150 data27,219,216,27,231,216,27,255,216,27,255,216,15,255,240,15,255,240,1,231
  17. 160 data128,0,231,0,0,231,0,0,231,0,0,231,0,0,231,0,1,231,128,0,0,0,0,0,0,0,0,0
  18. 170 data0,0,0,0,0,126,0,3,129,192,12,0,48,112,0,14,124,0,62,127,129,254,127,255
  19. 180 data254,127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,127,255
  20. 190 data254,127,255,254,127,255,254,127,255,254,127,255,254,15,255,240,3,255,192
  21. 200 data0,126,0,255,0,0,0,0,60,0,0,126,0,0,255,0,1,255,128,1,255,128,1,255,128
  22. 210 data3,255,192,12,255,48,16,126,8,17,56,136,18,219,72,2,24,64,4,90,32,4,189
  23. 220 data32,4,153,32,1,0,128,1,0,128,1,0,128,0,0,0,0,0,0,255,0,126,0,0,255,0,1,255
  24. 230 data128,7,255,224,11,255,208,7,255,224,7,255,224,11,255,208,19,255,200,9,255
  25. 240 data144,6,255,96,4,126,32,8,60,16,4,60,32,2,24,64,1,60,128,0,66,0,0,129,0,0
  26. 250 data0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,48,0,0,64,0,0,248,0,4,224,0,63,64,1
  27. 260 data63,0,7,255,0,31,252,0,63,251,192,63,208,0,63,212,0,31,65,128,18,64,0,18
  28. 270 data64,0,36,128,0,73,0,0,144,0,0,0,0,0,0,0,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
  29. 280 data0,0,1,0,0,1,128,0,0,192,0,0,95,190,0,31,191,0,0,1,0,0,1,0,0,1,0,31,191
  30. 290 data0,95,190,0,192,0,1,128,0,1,0,0,0,0,0,0,0,0,0,0,0,253,0,0,0,0,0,0,0,0,0
  31. 300 data128,0,0,188,0,0,1,240,0,0,0,0,5,72,0,202,168,48,42,160,114,96,2,242,47
  32. 310 data239,152,96,2,242,42,160,114,202,168,48,5,72,0,0,0,0,1,240,0,180,0,0,128
  33. 320 data0,0,0,0,0,253,124,60,0,254,90,0,254,102,0,254,126,0,254,102,0,254,66,0
  34. 330 data124,60,0,24,24,0,24,60,0,12,255,0,7,255,192,3,255,224,1,255,176,1,255,176
  35. 340 data1,255,152,1,255,152,1,255,136,1,255,140,1,255,132,0,255,4,0,255,0,255,0
  36. 350 data255,0,0,255,0,0,255,0,0,231,0,0,231,0,0,231,0,0,231,0,0,231,0,0,231,0,0
  37. 360 data231,0,0,231,0,0,231,0,1,231,128,3,231,192,7,129,224,7,0,224,0,0,0,0,0,0
  38. 370 data0,0,0,0,0,0,0,0,0,255,0,0,0,28,0,48,3,231,192,0,24,0,0,60,0,131,153,193
  39. 380 data240,126,15,140,60,49,69,255,194,32,60,4,16,255,8,35,24,132,28,60,120,0
  40. 390 data255,0,3,126,192,12,126,48,0,255,0,1,126,128,1,126,128,1,60,128,2,24,64
  41. 400 data0,0,60,0,0,102,0,0,90,0,0,36,0,0,24,0,0,60,0,0,255,0,9,126,128,10,126,128
  42. 410 data12,126,128,8,126,128,8,126,128,8,126,128,8,126,0,8,102,0,8,102,0,8,102
  43. 420 data0,8,102,0,8,102,0,8,102,0,0,231,0,0,0,0,0,0,126,0,0,255,0,1,195,128,1,165
  44. 430 data128,1,129,128,1,153,128,0,66,0,0,60,0,0,24,0,0,255,0,1,126,128,1,126,128
  45. 440 data2,126,64,2,126,64,2,126,64,0,102,0,0,102,0,0,102,0,0,231,0,1,195,128,0
  46. 450 data0,60,0,0,60,0,0,60,0,0,60,0,0,126,0,0,36,0,0,74,0,0,66,0,0,68,0,0,56,0
  47. 460 data0,16,0,0,248,0,1,248,0,2,240,0,4,240,0,8,240,0,16,240,0,0,224,0,0,224,0
  48. 470 data0,240,0,0,248,0,0,0,60,0,0,60,0,0,60,0,0,60,0,0,126,0,0,36,0,0,74,0,0,66
  49. 480 data0,0,68,0,0,56,0,0,16,0,0,248,0,1,248,0,2,240,0,4,240,0,8,240,0,16,240,0
  50. 490 data0,208,0,1,152,0,3,24,0,3,142,0,0,0,255,192,0,255,192,0,255,192,0,255,192
  51. 500 data0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0
  52. 510 data255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255,192,0,255
  53. 520 data192,0,255,192,0,255,192,0,240,0,0,248,0,0,252,0,0,254,0,0,255,0,0,255,128
  54. 530 data0,255,192,0,127,224,0,63,240,0,31,248,0,15,252,0,7,254,0,3,255,0,1,255
  55. 540 data128,0,255,192,0,127,224,0,63,240,0,31,248,0,15,252,0,7,254,0,3,255,0,0
  56. 550 data0,0,0,1,192,0,11,160,0,59,224,0,251,224,1,251,0,3,251,192,7,252,0,7,254
  57. 560 data0,7,252,16,15,255,248,15,255,248,15,127,224,31,112,0,31,112,0,30,240,0
  58. 570 data30,248,0,60,248,0,60,120,0,60,56,0,48,60,0,0,0,0,0,0,0,0,0,0,0,28,0,0,246
  59. 580 data0,0,124,0,0,15,0,0,126,0,0,31,128,0,127,0,0,63,224,0,79,192,0,31,248,0
  60. 590 data111,240,0,39,254,0,67,252,128,3,63,160,6,7,232,12,0,252,24,1,135,0,0,0
  61. 600 data255,0,28,0,1,246,31,3,254,15,0,31,7,1,255,7,0,31,3,0,31,3,0,31,7,0,62,7
  62. 610 data48,62,15,8,62,15,63,255,159,15,255,254,19,255,255,33,255,255,1,255,255
  63. 620 data3,255,255,7,255,255,31,255,255,127,255,255,84,0,0,255,0,0,0,0,0,0,224,0
  64. 630 data0,248,0,0,254,0,0,255,0,0,252,0,0,254,0,0,240,2,0,248,7,0,192,2,0,224,3
  65. 640 data0,0,3,0,128,3,0,224,7,0,248,14,0,254,28,0,255,252,0,255,248,0,255,240,0
  66. 650 data42,0,0,255,0,0,0,0,0,0,0,0,0,7,192,0,31,254,0,63,255,128,127,255,192,239
  67. 660 data255,224,255,255,240,255,255,248,207,255,252,255,255,220,127,255,238,63
  68. 670 data127,238,31,127,246,31,187,246,15,187,251,7,119,251,1,239,247,3,239,238
  69. 680 data7,224,25,255,0,0,0,0,3,0,0,3,128,0,25,192,0,60,192,0,126,32,0,90,16,0,126
  70. 690 data32,0,36,64,0,24,128,0,255,0,1,126,0,2,126,0,1,126,0,0,254,0,0,126,0,0,102
  71. 700 data0,0,102,0,0,102,0,0,102,0,0,231,0,255,0,16,0,0,56,0,0,124,0,0,254,0,1,171
  72. 710 data0,0,146,0,0,130,0,0,186,0,0,108,0,0,56,0,0,124,0,0,254,0,1,125,0,1,125
  73. 720 data0,1,125,0,1,125,0,0,108,0,0,108,0,0,108,0,0,108,0,0,238,0,255,128,16,1
  74. 730 data64,124,2,33,131,4,18,16,136,12,16,112,20,56,192,34,85,32,33,146,16,65,85
  75. 740 data8,65,57,8,255,255,255,65,53,8,33,72,8,32,221,144,19,48,80,20,16,32,8,16
  76. 750 data80,20,16,136,35,17,4,64,254,2,128,16,1,255,0,0,0,0,0,0,0,0,64,0,0,96,0
  77. 760 data0,208,0,1,252,0,1,224,0,3,252,0,7,224,15,255,224,63,255,192,127,255,192
  78. 770 data127,255,128,127,255,128,223,127,0,155,31,0,51,27,0,51,25,0,24,140,128,4
  79. 780 data66,64,2,1,0,255,0,0,0,0,36,0,0,36,0,0,60,0,48,90,12,30,102,120,17,60,136
  80. 790 data8,153,16,8,126,16,8,60,16,4,60,32,4,60,32,3,189,192,0,126,0,0,60,0,0,102
  81. 800 data0,0,195,0,1,129,128,3,0,192,5,0,160,0,0,0,0,0,0,0,0,0,0,60,0,0,106,0,0
  82. 810 data182,192,0,190,240,0,190,254,0,99,255,128,127,255,192,127,127,224,126,253
  83. 820 data240,62,253,240,62,253,240,30,222,248,29,222,248,29,222,248,13,142,240,11
  84. 830 data158,240,7,30,120,7,28,56,2,24,24
  85. 835 fori=50304to52350:reada:pokei,a:next
  86. 840 print"[147](d)iskette oder (k)assette "
  87. 850 geta$:ifa$<>"d"anda$<>"k"then850
  88. 860 ifa$="d"thengn=8
  89. 870 ifa$="k"thengn=1
  90. 880 sys(57812)"caverns sprites",8:poke193,127:poke194,196:poke174,128:poke175,204
  91. 890 sys62957
  92. 900 print"die daten sind gespeichert."
  93.